home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 September / Chip_2003-09_cd2.bin / system / xteq / setup.exe / {app} / plugins / XQ Desktop Icon Size.xpl < prev    next >
Encoding:
XSetup plugin  |  2002-04-24  |  3.8 KB  |  110 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="9"
  3. "COUNT"="4"
  4. "UIPATH"="Appearance\Interface\Icons"
  5. "NAME"="Icon Size: Large"
  6. "VERSION"="2.00"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="no text here"
  9. "DESCRIPTION 1"="Use this option to specify the size for the icons on your desktop. Please select only one item."
  10. "DESCRIPTION 2"="NOTE: this will also affect your Start Menu and the Large Icon view in Windows Explorer."
  11. "AUTHOR"="Xteq Systems"
  12. "CONTACTURL"="http://www.xteq.com/"
  13. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  14. "COMMENT 1"="Thanks to Neil R. Turner [totalxs@hotmail.com] for the Recommended Sizes and Start Menu/Explorer Notice."
  15. "COMMENT 2"="Thanks to Eugene Thrashevoy [EugeNet@Pisem.Net] for the help with this plug-in."
  16.  
  17. iCount=18
  18. sV="HKCU\Control Panel\Desktop\WindowMetrics\Shell Icon Size"
  19.  
  20. Sub Plugin_Initialize 
  21.   Call SetUIElement(1," Use Windows Default ")
  22.   Call SetUIElement(2,"Display 16x16 pixel icons")
  23.   Call SetUIElement(3,"Display 18x18 pixel icons")
  24.   Call SetUIElement(4,"Display 20x20 pixel icons")
  25.   Call SetUIElement(5,"Display 22x22 pixel icons")
  26.   Call SetUIElement(6,"Display 24x24 pixel icons")
  27.   Call SetUIElement(7,"Display 26x26 pixel icons")
  28.   Call SetUIElement(8,"Display 28x28 pixel icons")
  29.   Call SetUIElement(9,"Display 30x30 pixel icons")
  30.  Call SetUIElement(10,"Display 32x32 pixel icons")
  31.  Call SetUIElement(11,"Display 34x34 pixel icons")
  32.  Call SetUIElement(12,"Display 36x36 pixel icons")
  33.  Call SetUIElement(13,"Display 38x38 pixel icons")
  34.  Call SetUIElement(14,"Display 40x40 pixel icons")
  35.  Call SetUIElement(15,"Display 42x42 pixel icons")
  36.  Call SetUIElement(16,"Display 44x44 pixel icons")
  37.  Call SetUIElement(17,"Display 46x46 pixel icons")
  38.  Call SetUIElement(18,"Display 48x48 pixel icons")
  39.  
  40.  i=RegReadValue(sV)
  41.  
  42.  if IsEmpty(i) then SetUIElementEx 1,true
  43.  
  44.  if IsNumeric(i) then
  45.     if i=16 then Call SetUiElementEx(2,true)
  46.     if i=18 then Call SetUiElementEx(3,true)
  47.     if i=20 then Call SetUiElementEx(4,true)
  48.     if i=22 then Call SetUiElementEx(5,true)
  49.     if i=24 then Call SetUiElementEx(6,true)
  50.     if i=26 then Call SetUiElementEx(7,true)
  51.     if i=28 then Call SetUiElementEx(8,true)
  52.     if i=30 then Call SetUiElementEx(9,true)
  53.     if i=32 then Call SetUiElementEx(10,true)
  54.     if i=34 then Call SetUiElementEx(11,true)
  55.     if i=36 then Call SetUiElementEx(12,true)
  56.     if i=38 then Call SetUiElementEx(13,true)
  57.     if i=40 then Call SetUiElementEx(14,true)
  58.     if i=42 then Call SetUiElementEx(15,true)
  59.     if i=44 then Call SetUiElementEx(16,true)
  60.     if i=46 then Call SetUiElementEx(17,true)
  61.     if i=48 then Call SetUiElementEx(18,true)
  62.  end if
  63.  
  64. End Sub
  65.  
  66. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  67.  e=0
  68.  
  69.  for i=1 to iCount
  70.      if GetUIElementEx(i)=true then e=e+1
  71.  next
  72.  
  73.  if e>1 then 
  74.     Call MsgError("Please select only one item!")
  75.  else
  76.    i=empty
  77.    if GetUIElementEx(1)=true then i=0
  78.    if GetUIElementEx(2)=true then i=16
  79.    if GetUIElementEx(3)=true then i=18
  80.    if GetUIElementEx(4)=true then i=20
  81.    if GetUIElementEx(5)=true then i=22
  82.    if GetUIElementEx(6)=true then i=24
  83.    if GetUIElementEx(7)=true then i=26
  84.    if GetUIElementEx(8)=true then i=28
  85.    if GetUIElementEx(9)=true then i=30
  86.    if GetUIElementEx(10)=true then i=32
  87.    if GetUIElementEx(11)=true then i=34
  88.    if GetUIElementEx(12)=true then i=36
  89.    if GetUIElementEx(13)=true then i=38
  90.    if GetUIElementEx(14)=true then i=40
  91.    if GetUIElementEx(15)=true then i=42
  92.    if GetUIElementEx(16)=true then i=44
  93.    if GetUIElementEx(17)=true then i=46
  94.    if GetUIElementEx(18)=true then i=48
  95.  
  96.    if i>0 then
  97.       Call RegWriteValue(sV,i,1)
  98.       Call Logoff()
  99.    else
  100.       if RegValueExists(sV) then
  101.          Call RegDeleteValue(sV)
  102.       end if
  103.    end if
  104.  end if
  105.  
  106. End Sub
  107.  
  108. Sub Plugin_Terminate 
  109. End Sub
  110.